home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / DISPLAYT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-27  |  1.1 KB  |  37 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Display_Timers --- Display session timers               *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Display_Timers;
  6.  
  7. VAR
  8.    Ch: CHAR;
  9.  
  10. BEGIN (* Display_Timers *)
  11.  
  12.    Save_Screen( Saved_Screen );
  13.  
  14.    Draw_Menu_Frame( 10, 10, 70, 15, Menu_Frame_Color,
  15.                     Menu_Text_Color, 'Display session timers' );
  16.  
  17.    WRITELN('Elapsed time since PibTerm started:            ',
  18.            TimeString( TimeDiff( Session_Start_Time , TimeOfDay ) ) );
  19.  
  20.    WRITELN('Elapsed time since current host session began: ',
  21.            TimeString( TimeDiff( Dialing_Start_Time , TimeOfDay ) ) );
  22.  
  23.    WRITELN(' ');
  24.    WRITE  ('Enter C to clear session timer, Enter to continue ... ');
  25.  
  26.    READ( Kbd, Ch );
  27.    IF ( ORD( Ch ) = ESC ) AND KeyPressed THEN
  28.       READ( Kbd, Ch )
  29.    ELSE
  30.       IF UpCase( Ch ) = 'C' THEN
  31.          Dialing_Start_Time := TimeOfDay;
  32.  
  33.    Restore_Screen( Saved_Screen );
  34.    Reset_Global_Colors;
  35.  
  36. END   (* Display_Timers *);
  37.